www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/lovewall/input.asp

    <!--#include file="conn.asp"-->
<%
OpenDB()
cauthor = Request.Form("author")
cbcolor = Request.Form("tagbcolor")
ccontent = Request.Form("massages")

ccontent = Replace(Replace(Replace(ccontent,"'",""),">",""),"<","")
If Len(ccontent) >100 Then
LoveTxt = Left(LoveTxt,100)
End If
set rs= Server.CreateObject("adodb.recordset")
sql="select * from ccc_love"
rs.open sql,conn,3,3
rs.addnew()
rs("cauthor")=cauthor
rs("ccontent")=ccontent
rs("cbcolor")=cbcolor
rs.update()
'Conn.execute("Insert Into ccc_love(cauthor,ccontent,cbcolor) values ('" & cauthor &"','" & ccontent & "','"& cbcolor & "')")

CloseDB()
Response.write "<script>alert('\n\n\n\n粘贴祝福纸条成功!!!\n\n\n返回首页查看祝福\n\n\n');location.href='index.asp';</script>"
%>